home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Graphics / Copper.asm < prev    next >
Assembly Source File  |  1991-03-13  |  1KB  |  101 lines
  1. *
  2. *    Copper.asm for PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Graphics/Copper.i
  7. *
  8.  
  9.     SECTION    PCQ_Runtime,CODE
  10.  
  11.     XREF    _GfxBase
  12.  
  13.     XREF    _LVOCBump
  14.     XDEF    _CBump
  15. _CBump
  16.     move.l    4(sp),a1
  17.     move.l    _GfxBase,a6
  18.     jmp    _LVOCBump(a6)
  19.  
  20.  
  21.     XREF    _LVOCMove
  22.     XDEF    _CMove
  23. _CMove
  24.     move.w    4(sp),d1
  25.     movem.l    6(sp),d0/a1
  26.     move.l    _GfxBase,a6
  27.     jmp    _LVOCMove(a6)
  28.  
  29.  
  30.     XREF    _LVOCWait
  31.     XDEF    _CWait
  32. _CWait
  33.     move.w    4(sp),d1
  34.     move.w    6(sp),d0
  35.     move.l    8(sp),a1
  36.     move.l    _GfxBase,a6
  37.     jmp    _LVOCWait(a6)
  38.  
  39.  
  40.     XREF    _LVOFreeCopList
  41.     XDEF    _FreeCopList
  42. _FreeCopList
  43.     move.l    4(sp),a0
  44.     move.l    _GfxBase,a6
  45.     jmp    _LVOFreeCopList(a6)
  46.  
  47.  
  48.     XREF    _LVOFreeCprList
  49.     XDEF    _FreeCprList
  50. _FreeCprList
  51.     move.l    4(sp),a0
  52.     move.l    _GfxBase,a6
  53.     jmp    _LVOFreeCprList(a6)
  54.  
  55.  
  56.     XREF    _LVOUCopperListInit
  57.  
  58.     XDEF    __CINIT
  59.     XDEF    _UCopperListInit
  60. __CINIT
  61. _UCopperListInit
  62.     move.w    4(sp),d0
  63.     move.l    6(sp),a0
  64.     move.l    _GfxBase,a6
  65.     jmp    _LVOUCopperListInit(a6)
  66.  
  67.  
  68.     XDEF    __CEND
  69. __CEND
  70.     move.l    4(sp),a1
  71.     move.w    #10000,d0
  72.     move.w    #255,d1
  73.     move.l    _GfxBase,a6
  74.     jsr    _LVOCWait(a6)
  75.     move.l    4(sp),a1
  76.     jmp    _LVOCBump(a6)
  77.  
  78.  
  79.     XDEF    __CMOVE
  80. __CMOVE
  81.     move.w    4(sp),d1
  82.     movem.l    6(sp),d0/a1
  83.     move.l    _GfxBase,a6
  84.     jsr    _LVOCMove(a6)
  85.     move.l    10(sp),a1
  86.     jmp    _LVOCBump(a6)
  87.  
  88.  
  89.     XREF    _LVO_CWAIT
  90.     XDEF    __CWAIT
  91. __CWAIT
  92.     move.w    4(sp),d1
  93.     move.w    6(sp),d0
  94.     move.l    8(sp),a1
  95.     move.l    _GfxBase,a6
  96.     jsr    _LVOCWait(a6)
  97.     move.l    8(sp),a1
  98.     jmp    _LVOCBump(a6)
  99.  
  100.     END
  101.